home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / antenna / wrhom204 / stub.bas < prev    next >
BASIC Source File  |  1994-07-29  |  3KB  |  60 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 30 LOCATE 2,35:PRINT"STUBS"
  4. 50 PRINT:PRINT STRING$(79,8)
  5. 55 PRINT
  6. 56 print"Taken from Dick Thwing's (K4EDE) collection of ham radio Basic programs."
  7. 57 print"Revised by O.C. Winton (WN1Z) July 1994 (P.O. Box 89, Big Sur CA 93920),"
  8. 58 print"and compiled with Microsoft QuickBasic 3.00, and boy did the program need"
  9. 59 print"revision!  The velocity factor (Vel, i.e. 'VP' in the Basic program)"
  10. 60 print"appeared in the denominator in the original K4EDE version; it should"
  11. 61 print"appear in the numerator as it does here.  For a practical example of"
  12. 62 print"how to use the velocity-factor in calculating stub lengths, see the"
  13. 63 print"article 'The 300-Ohm Ribbon J Antenna for 2 Meters:  A Critical""
  14. 64 print"Analysis', by John S. Belrose (VE2CV), in the April 1982 QST."
  15. 65 print
  16. 66 print"According to Belrose, you start with the free-space wavelength by"
  17. 67 print"using the equation:  lambda = (300/Fmhz)m = (984/Fmhz)ft.  That is"
  18. 68 print"one wavelength.  A halfwave in feet is then 492. [Thwing used 468"
  19. 69 print"which is the figure for the physical length of a halfwave antenna"
  20. 70 print"after K-factor, end effect, etc. is taken into account (see THE ARRL"
  21. 71 print"ANTENNA BOOK, 1984, page 2-dash-3), which is not appropriate for stubs.]"
  22. 72 print:input"to print this page, hit <PrtSc>; to continue, hit <cr>", dummy
  23.  
  24. 73 cls:print:PRINT"THE LENGTH OF A STUB, USUALLY A QUARTER WAVE OR HALF WAVE, IS"
  25. 80 PRINT"DEPENDENT ON THE FREQUENCY AND THE VELOCITY OF PROPAGATION OF"
  26. 90 PRINT"THE TYPE OF LINE USED. THE FORMULA IS (492)(Vel)/(Fmhz) FEET FOR A"
  27. 100 PRINT"HALF WAVE STUB."
  28. 110 PRINT:PRINT"VELOCITY FACTOR              TYPES"
  29. 115 print
  30. 120 PRINT  "    .66                    RG-8A/U, RG-58A/U, RG-59A/U, RG-11A/U"
  31. 125 print  "    .75                    RG-8X or 'mini-8' "
  32. 130 PRINT  "    .79                    RG-58/U, RG-59/U"
  33. 140 PRINT  "    .80                    RG-8/U, 300 OHM TUBULAR"
  34. 150 PRINT  "    .82 or .83             300 OHM TWIN LEAD (indoor non-foam type)"
  35. 160 PRINT  "    .95                    450-ohm ladder line"
  36. 170 PRINT:INPUT"FREQUENCY IN MHZ ";MHZ
  37. 180 INPUT"VELOCITY FACTOR ";VP
  38. 190 L=(492*VP)/MHZ
  39. 200 PRINT"THE LENGTH OF A QUARTER WAVE STUB IS ";:PRINT USING"###.#";L/2;:PRINT" FEET (";:print using"###.###";L/(2*3.28);:print" meters)"
  40. 210 PRINT"THE LENGTH OF A HALF WAVE STUB IS    ";:PRINT USING"###.#";L;:PRINT" FEET (";:print using"###.###";L/3.28;:print" meters)"
  41. 220 PRINT
  42. 230 print:input"to print this page, hit <PrtSc>; to continue, hit <cr>", dummy
  43. 350 print:print"[SPACE BAR]"
  44. 360 A$=INKEY$:IF A$=CHR$(32) THEN 380
  45. 370 GOTO 360
  46. 380 CLS
  47. 390 PRINT:PRINT:PRINT:PRINT"SELECT"
  48. 400 PRINT:PRINT"1....................DO ANOTHER"
  49. 420 PRINT:PRINT"2....................RETURN TO MS-DOS"
  50. 430 INPUT S
  51. 440 ON S GOTO 455,480
  52. 450 GOTO 380
  53. 455 CLS:PRINT:GOTO 110
  54. 480 CLS:LOCATE 12,1:PRINT"ARE YOU SURE? (Y)es/(N)o"
  55. 490 A$=INKEY$:IF A$="" THEN 490
  56. 500 IF A$= "Y" or A$="y" THEN CLS:SYSTEM
  57. 510 GOTO 390
  58.  
  59.  
  60.